home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue06 / comp / screensubs < prev   
Encoding:
Text File  |  1989-12-08  |  4.7 KB  |  84 lines
  1. >LIST
  2. 32000DEFPROCINIT(X$,Y$):LOCALI%,W%,X%:W%=Work%:$(W%+200)=X$:$(W%+225)=Y$:$(W%+175)=" "
  3. 32010*FX225,1
  4. 32015*KEY1 DELETE32000,33000 |M SAVE |M
  5. 32020*KEY0 BASIC |M OLD |M MODE3 |M COLOUR0,&F0,&C0,&90 |M COLOUR1,0,0,0 |M VDU19,0,24,&A0,&80,&60 |M |N LISTO21 |M LIST |M
  6. 32030VDU23,48,&3C,&66,&66,&66,&66,&66,&3C,0:VDU23,79,&7E,&66,&66,&66,&66,&66,&7E,0
  7. 32040VDU23,79,&7E,&66,&66,&66,&66,&66,&7E,0
  8. 32050X$="FC9 DA8 B97 975 864 643 432 000 049 EE0 0D0 C03 FFD B0B FA0 0BF B97 0FF 009 F00"
  9. 32060FORI%=0TO59:X%=ASC(X$):X%=X%-48+7*(X%>64):W%?I%=X%*16:X$=MID$(X$,3-SGN((I%+1)MOD3)):NEXTI%
  10. 32070COLOUR128:COLOUR7:GCOL0,7:MODE12:CLS
  11. 32080FORI%=0TO15:VDU19,I%,16,W%?(3*I%),W%?(3*I%+1),W%?(3*I%+2):NEXTI%:VDU19,0,24,W%?48,W%?49,W%?50:FORI%=1TO3:VDU19,I%,25,W%?(3*I%+48),W%?(3*I%+49),W%?(3*I%+50):NEXTI%
  12. 32090PROCCLS
  13. 32100PROCMOUSEPARS
  14. 32110ENDPROC
  15. 32120DEFPROCCLS
  16. 32130GCOL7:RECTANGLEFILL0,0,1279,1023:GCOL4:RECTANGLEFILL4,4,1271,1015:GCOL7:RECTANGLEFILL16,16,1247,843:RECTANGLEFILL16,872,1247,79:GCOL0:RECTANGLEFILL20,20,1239,835:RECTANGLEFILL20,876,1239,71
  17. 32140$(Work%+175)=STRING$(24," "):PROCHEAD
  18. 32150ENDPROC
  19. 32160DEFPROCHEAD:LOCALW%,X$,Y$:W%=Work%:X$=$(W%+200):Y$=$(W%+225)
  20. 32170GCOL4:RECTANGLEFILL4,952,1271,67:VDU5:GCOL12:MOVE48,999:PRINTX$
  21. 32180MOVE640+8*(LEN(X$)-20)-8*LEN(Y$),999:PRINTY$:PROCTIME:GCOL0:RECTANGLEFILL20,876,1239,71:ENDPROC
  22. 32190DEFPROCTIME:LOCALW%,X%,X$,Y$:W%=Work%:X$=$(W%+175)
  23. 32200Y$=TIME$:IFY$<>X$THENX%=32-288*(LEFT$(X$,22)<>LEFT$(Y$,22)):$(W%+175)=Y$:VDU5:GCOL4:RECTANGLEFILL1239-X%,968,X%-1,31:GCOL12:MOVE920,999:PRINTMID$(Y$,5,7);MID$(Y$,14,2);"   ";MID$(Y$,17,8)
  24. 32210GCOL7:COLOUR7:VDU4:ENDPROC
  25. 32220DEFPROCENTER(P$,A%,N,D$,F$)
  26. 32230LOCALT$,C%,L%,I%,J%,K%,E%,N%,D%,R$,Z%,M%:C%=10:L%=3
  27. 32240*FX225,&80
  28. 32250*FX226,&90
  29. 32260*FX227,&A0
  30. 32270*FX228,&B0
  31. 32280*FX221,&C0
  32. 32290*FX222,&D0
  33. 32300*FX223,&E0
  34. 32310*FX224,&F0
  35. 32320*FX4,2
  36. 32330*FX229,27
  37. 32340*FX9,0
  38. 32350Z%=1:T$="":E%=0:R$=D$
  39. 32360MOUSEI%,J%,K%:M%=FALSE:IFF$<>""THENFORY%=1TOLEN(F$):X%=ASC(MID$(F$,Y%)):M%=M%OR((X%>=&F1)AND(X%<=&F7)):NEXTY%:X%=INSTR(F$,CHR$(27)):IFX%>0THENPRINTTAB(73,3);"<ESC>"
  40. 32370IFN<>0THENX=VAL(D$):D$=STR$(X):N%=INT(ABS(N)):D%=10*(ABS(N)+0.01-N%):A%=N%-(N<0):IFD%>0THENA%+=1+D%
  41. 32380C%=(80-LEN(P$)-3-A%)DIV2
  42. 32390IFN<>0THENX=VAL(D$):X%=1+INT(LOG(0.5+INT(ABS(X))))-(D$="0"):Y%=0:IF(INSTR(D$,".")>0)THENY%=LEN(D$)-INSTR(D$,".")
  43. 32400IFN<>0THENE%=(X<0)AND(N>=0):E%=E%OR(X%>N%):E%=E%OR(Y%>D%)
  44. 32410OFF:PRINTTAB(C%+LEN(P$)+3,L%);STRING$(A%," ");:REPEAT:SYS"OS_Byte",&87TOK%,K%:PRINT" ";:UNTILK%=32:PRINTTAB(C%,L%);P$;" ? ";D$;
  45. 32420IFN=0ANDLEN(D$)<A%THENPRINTSTRING$(A%-LEN(D$),".");
  46. 32430IFN<>0ANDINSTR(D$,".")=0ANDX%<N%THENPRINTSTRING$(N%-X%,".");
  47. 32440IFN<>0ANDY%<D%THENPRINTSTRING$(-(INSTR(D$,".")=0),CHR$(189));STRING$(D%-Y%,".");
  48. 32450IFN<>0ANDINSTR(D$,".")>0THENPRINTTAB(C%+LEN(P$)+2+INSTR(D$,"."),L%);CHR$(189);
  49. 32460PROCTIME
  50. 32470IFM%THENMOUSEX%,Y%,K%:IFK%>0THENMOUSEON4:X$="":Z%=K%:REPEAT:MOUSEI%,J%,K%:MOUSETOX%,Y%:Z%=Z%ORK%:UNTILK%=0:Y%=240+Z%:GOTO32640
  51. 32480IFM%THENIF(X%<>I%)OR(Y%<>J%)THENMOUSEON4:I%=X%:J%=Y%
  52. 32490PRINTTAB(C%+LEN(P$)+2+Z%,L%);:ON
  53. 32500Y%=INKEY(1):IFY%<0THEN32460
  54. 32510MOUSEOFF
  55. 32520X%=0:X=0:X$=""
  56. 32530IFY%>=32ANDY%<127ANDD$=R$ANDZ%=1THENR$="":D$=CHR$(Y%):Z%=2:GOTO32390
  57. 32540IFY%>=32ANDY%<127ANDZ%>LEN(D$)THEND$=D$+CHR$(Y%):Z%+=1:GOTO32390
  58. 32550IFY%>=32ANDY%<127ANDZ%<=LEN(D$)THENX$=D$:D$=LEFT$(D$,Z%-1)+CHR$(Y%)+RIGHT$(D$,LEN(D$)-Z%):Z%+=1:GOTO32390
  59. 32560IFY%=127THEND$=LEFT$(D$,Z%-1)+RIGHT$(D$,LEN(D$)-Z%):GOTO32390
  60. 32570IFY%=140THENZ%-=1:Z%-=(Z%=0):GOTO32390
  61. 32580IFY%=141THENZ%+=1:Z%+=(Z%>LEN(D$)+1):GOTO32390
  62. 32590IFY%=205ANDZ%>LEN(D$)THEN32390
  63. 32600IFY%=205ANDZ%<=LEN(D$)ANDN=0THENX$=D$:D$=LEFT$(D$,Z%-1)+" "+RIGHT$(D$,LEN(D$)-Z%+1):GOTO32390
  64. 32610IFY%=205ANDZ%<=LEN(D$)ANDN<>0THENX$=D$:D$=LEFT$(D$,Z%-1)+"0"+RIGHT$(D$,LEN(D$)-Z%+1):GOTO32390
  65. 32620IFY%=8ANDZ%=1THEN32390
  66. 32630IFY%=8ANDZ%>1THENX$=D$:D$=LEFT$(D$,Z%-2)+RIGHT$(D$,LEN(D$)-Z%+1):Z%-=1:GOTO32390
  67. 32640IF(Y%AND&0F)>9AND(Y%>127)THENY%=Y%EOR&40
  68. 32650IF(Y%<>13)AND(INSTR(F$,CHR$(Y%))=0)THEN32460
  69. 32660X$=D$:X=0:IFN<>0THENX=VAL(X$):IFE%<>0THEND$=R$:PRINTCHR$(7):GOTO32350
  70. 32670X%=0:IFD%=0THENX%=X
  71. 32680REM*FX229,0
  72. 32690*FX4,0
  73. 32695I%=INSTR(F$,CHR$(27)):IFI%>0THENPRINTTAB(73,3);"     "
  74. 32700PRINTTAB(C%,L%);STRING$(LEN(P$)+3+A%," "):ENDPROC
  75. 32710DEFPROCMOUSEPARS
  76. 32720*POINTER
  77. 32730MOUSEOFF
  78. 32740W%?0=0:W%?1=4:W%?2=5:W%?3=9:W%?4=8:W%?5=4:!(W%+6)=W%+10
  79. 32750!(W%+10)=&0FFFFF00:?(W%+14)=&00:!(W%+15)=&FC0F03F0:?(W%+19)=&00:!(W%+20)=&C00F003F:?(W%+24)=&0F:!(W%+25)=&000F000F:?(W%+29)=&0F:!(W%+30)=&FFFFFFFF:?(W%+34)=&0F
  80. 32760!(W%+35)=&000F000F:?(W%+39)=&0F:!(W%+40)=&C00F003F:?(W%+44)=&0F:!(W%+45)=&FC0F03F0:?(W%+49)=&00:!(W%+50)=&0FFFFF00:?(W%+54)=&00
  81. 32770SYS"OS_Word",&15,W%
  82. 32780ENDPROC
  83. >*SPOOL
  84.